10 POKE53280,.:POKE53281,.:PRINT"[147]";:
25 PRINT"[145][158]     [154]     [156]     [152]               [129]     [149]      [145][153][157][157][157][157][157][157][157][157]     ";
26 S=54272:POKE54296,15:FORI=1TO4STEP.5 :POKES+4,33:POKE54276,11:POKE54278,242
27 POKE54273,0+ABS(2-I)  ::NEXT:POKES+0,21:POKES+4,128
30 P=P+1:PRINTTAB((P)+1)"[146][157][157][157][157][157]     ENDE[158]         [154]         [156]          ";
31 POKES+4,16::PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157]";
35 IFP>77THENPOKE54296,10:PRINT"[147]        E  N  D  E  !                  ";
40 IFP>91THENPOKE54296,0:END
45 PRINT"[157][157][157][157][157][157][157][157][157][145]"; :GOTO25